home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qdoc_265.zip / QNEW_264.ZIP / NEW_USER.Q-A < prev    next >
Text File  |  1990-02-23  |  3KB  |  106 lines
  1. ClearScreen
  2. ChangeColor 14 0
  3. Display "New User Survey|"
  4. ChangeColor 3 0
  5. Display "~~~~~~~~~~~~~~~||"
  6. Display "This information will remain confidential to the Sysop.|"
  7. Display "Completing this survey is required for long term access to|"
  8. Display "The system. The information that I receive from this|"
  9. Display "survey will be used to help make the board better serve you|"
  10. Display "the user.||"
  11. Display "You are given the choice whether you want to save your answers or|"
  12. Display "not at the end of the survey.|"
  13.  
  14. ChangeColor 14 0
  15. Display "What type of computer are you using:|"
  16. ChangeColor 3 0
  17. Display "1. IBM PC/XT or CLONE|"
  18. Display "2. IBM AT    or CLONE|"
  19. Display "3. 80386 SYSTEM|"
  20. Display "4. PS/2|"
  21. Display "5. Other MS-DOS based system|"
  22. Display "6. Non MS-DOS system|? "
  23. GetChoice 123456 1
  24.  
  25. ChangeColor 14 0
  26. Display "|Do you own a laptop or portable (Y/N)? "
  27. ChangeColor 3 0
  28. GetChoice YN 2
  29.  
  30. ChangeColor 14 0
  31. Display "|What is your age (please be honest)? "
  32. ChangeColor 3 0
  33. Ask 2 3
  34.  
  35. ChangeColor 14 0
  36. Display "|What is your sex (M/F)? "
  37. ChangeColor 3 0
  38. GetChoice MF 4
  39.  
  40. ChangeColor 14 0
  41. Display "|Do you do any programming (Y/N)? "
  42. ChangeColor 3 0
  43. GetChoice YN 20
  44.  
  45. If 20 = "Y"
  46. ChangeColor 14 0
  47. Display "|What language(s) do you program in?|: "
  48. ChangeColor 3 0
  49. Ask 65 5
  50. EndIf
  51.  
  52. ChangeColor 14 0
  53. Display "|Do you run a BBS (Y/N)? "
  54. ChangeColor 3 0
  55. GetChoice YN 19
  56.  
  57. If 19 = "Y"
  58. ChangeColor 14 0
  59. Display "|What is the name and number of your BBS?|: "
  60. ChangeColor 3 0
  61. Ask 65 6
  62. ChangeColor 14 0
  63. Display "|Is it OK to add your system to our BBS list (Y/N)? "
  64. ChangeColor 3 0
  65. GetChoice YN 18
  66. EndIf
  67.  
  68. ChangeColor 14 0
  69. Display "|What are your other interests, hobbies, favorite activities,|"
  70. Display "etc...  Non-computer stuff...  (2 lines)|"
  71. ChangeColor 3 0
  72. Display "1: "
  73. Ask 65 7
  74. ChangeColor 3 0
  75. Display "2: "
  76. Ask 65 8
  77.  
  78. ChangeColor 14 0
  79. Display "|End of survey!  Do you want the system to R)ecord or D)iscard|"
  80. Display "your answers (R/D)? "
  81. ChangeColor 3 0
  82. GetChoice RD 20
  83.  
  84. If 20 = "R"
  85. PostInfo
  86. OutputAnswer "Computer  : " 1
  87. OutputAnswer "Laptop    : " 2
  88. OutputAnswer "Age       : " 3
  89. OutputAnswer "Sex       : " 4
  90. OutputAnswer "Programing: " 5
  91. OutputAnswer "BBS       : " 6
  92. OutputAnswer "Ok to list: " 18
  93. OutputAnswer "Interests : " 7
  94. OutputAnswer "          : " 8
  95. ChangeColor 15 0
  96. Display "|Answers saved!  Thank you for filling out the New User survey.|"
  97. ChangeColor 7 0
  98. EndIf
  99.  
  100. If 20 = "D"
  101. ChangeColor 15 0
  102. Display "|Answers discarded - Please re-enter if you like.|"
  103. ChangeColor 7 0
  104. EndIf
  105.  
  106.